home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / perl5a1.lha / perl5alpha1 / doSH < prev    next >
Text File  |  1992-08-10  |  841b  |  49 lines
  1. #!/bin/sh
  2.  
  3. : if this fails, just run all the .SH files by hand
  4. . ./config.sh
  5.  
  6. (
  7.     cd x2p
  8.     rm -f config.sh
  9.     case "$d_symlink" in
  10.     *define*) ln -s ../config.sh . || ln ../config.sh .;;
  11.     *) ln ../config.sh . || ln -s ../config.sh .
  12.     esac
  13. )
  14.  
  15. cp cppstdin x2p
  16.  
  17. echo " "
  18. echo "Doing variable substitutions on .SH files..."
  19. set x `awk '{print $1}' <MANIFEST | grep '\.SH'`
  20. shift
  21. case $# in
  22. 0) set x *.SH; shift;;
  23. esac
  24. if test ! -f $1; then
  25.     shift
  26. fi
  27. for file in $*; do
  28.     set X
  29.     shift
  30.     chmod +x $file
  31.     case "$file" in
  32.     */*)
  33.     dir=`expr X$file : 'X\(.*\)/'`
  34.     file=`expr X$file : 'X.*/\(.*\)'`
  35.     (cd $dir && . ./$file)
  36.     ;;
  37.     *)
  38.     . ./$file
  39.     ;;
  40.     esac
  41. done
  42. if test -f config.h.SH; then
  43.     if test ! -f config.h; then
  44.     : oops, they left it out of MANIFEST, probably, so do it anyway.
  45.     . ./config.h.SH
  46.     fi
  47. fi
  48. exit 0
  49.